100 REM BEISPIEL FUER EINE KLEINE
101 REM DIRECTORY-MANIPULATION:
102 REM SCRATCH-SCHUTZ EINZELNER FILES
103 REM NACH ANZEIGE DES FILENAMENS:
104 REM J = SCHUETZE DIES FILE
105 REM N = WEITER ZUM NAECHSTEN FILE
106 REM E = ENDE
107 REM ACHTUNG !!! "SCHUETZT" AUCH
108 REM SCHON GESCRATCHTE FILES WENN
109 REM VERLANGT, STELLT SIE ABER NICHT
110 REM WIEDER HER !!!
111 REM SCRATCH-SCHUTZ WIRD IM DIRECT.
112 REM DURCH EIN '<' HINTER DEM
113 REM FILETYP ANGEZEIGT. NAEHERES
114 REM SIEHE TABELLE FOLGE 1 !!!
115 REM ACHTUNG !!! NUR ZUSAMMEN MIT
116 REM DEN UNTERPROGRAMMEN 1 & 2
117 REM LAUFFAEHIG !!!
118 :
119 :
120 MM=0
130 MM=MM+1:DD$="":GOSUB1000
140 IF DD$=NN$THENEND
150 PRINTMID$(DD$,4,16):INPUTAA$
160 IF AA$="E"THEN END
170 IF AA$="N"THEN 130
180 HH$=LEFT$(DD$,1)
190 HH$=CHR$(ASC(HH$)OR2^6)
200 DD$=HH$+RIGHT$(DD$,29)
210 GOSUB2000
220 GOTO 130
230 END
1000 REM UNTERPROGRAMM 1
1001 REM LESEN EINES EINTRAGES AUS DEM
1002 REM DIRECTORY (ALLE 30 BYTES !!!)
1003 REM IN DIE VARIABLE DD$
1004 REM UEBERGABEPARAMETER:
1005 REM MM=NUMMER DES EINTRAGES DER
1006 REM    GELESEN WERDEN SOLL
1007 :
1008 :
1009 :
1010 OPEN 15,8,15,"I":OPEN8,8,8,"#"
1020 NN$="":FORI=1TO30:NN$=NN$+CHR$(0):NEXTI
1030 XX=INT((MM-1)/8)
1040 PRINT#15,"U1 8 0 18 0"
1050 FORZZ=1TOXX+1
1060 PRINT#15,"B-P 8 0"
1070 GET#8,TT$:TT=ASC(TT$+CHR$(0))
1080 GET#8,SS$:SS=ASC(SS$+CHR$(0))
1090 IF TT=0 THEN DD$=NN$:GOTO1170
1100 PRINT#15,"U1 8 0";TT;SS
1110 NEXTZZ
1120 PP=MM-(XX*8):PP=(PP-1)*32+2
1130 PRINT#15,"B-P 8";PP
1140 FORZZ=1 TO 30:GET#8,ZZ$
1150 IFZZ$=""THENZZ$=CHR$(0)
1160 DD$=DD$+ZZ$:NEXTZZ
1170 CLOSE 8:CLOSE 15
1180 RETURN
2000 REM UNTERPROGRAMM 2
2001 REM SCHREIBEN EINES EINTRAGES IN
2002 REM DAS DIRECTORY (30 BYTES !!!)
2003 REM UEBERGABEPARAMETER:
2004 REM MM=NUMMER DES EINTRAGES DER
2005 REM    GESCHRIEBEN WERDEN SOLL
2006 REM DD$=DIRECTORYEINTRAG
2007 :
2008 :
2009 :
2010 OPEN 15,8,15,"I":OPEN8,8,8,"#"
2020 XX=INT((MM-1)/8)
2030 PRINT#15,"U1 8 0 18 0"
2040 FORZZ=1TOXX+1
2050 PRINT#15,"B-P 8 0"
2060 GET#8,T$:TT=ASC(T$+CHR$(0))
2070 GET#8,S$:SS=ASC(S$+CHR$(0))
2080 IF TT=0 THEN 2150
2090 PRINT#15,"U1 8 0";TT;SS
2100 NEXTZZ
2110 PP=MM-(XX*8):PP=(PP-1)*32+2
2120 PRINT#15,"B-P 8";PP
2130 PRINT#8,DD$;
2140 PRINT#15,"U2 8 0";TT;SS
2150 CLOSE 8:CLOSE 15
2160 RETURN